home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / EEV100R1.ARJ / TESTI.PAS < prev    next >
Pascal/Delphi Source File  |  1991-12-28  |  1KB  |  52 lines
  1. program TestI;
  2.  
  3. { This is a simple test program I used for INFIX.PAS }
  4.  
  5. Uses
  6.  
  7.   crt,
  8.   infix;
  9.  
  10. var
  11.  
  12.   MyReal : real;
  13.   MyErr  : byte;
  14.   MyExpr : string;
  15.   MyBool : boolean;
  16.   MyAddr : Str20;
  17.  
  18. begin
  19.  
  20.   {init test variables}
  21.   MyReal := 0;
  22.   MyErr := 0;
  23.  
  24.   {add 2 and 2 and put the result (4) in @FRED@}
  25.   MyAddr := '@FRED@';
  26.   MyExpr := '2+2';
  27.   CalcAndStore(MyExpr,MyAddr,MyErr);
  28.  
  29.   {multiply 3 by 7 and put the result (21) in @WILMA@}
  30.   MyAddr := '@WILMA@';
  31.   MyExpr := '3*7';
  32.   CalcAndStore(MyExpr,MyAddr,MyErr);
  33.  
  34.   {add @FRED@ (4) and @WILMA@ (21), subtract 1 (24), and store in @DINO@}
  35.   MyAddr := '@DINO@';
  36.   MyExpr := '@FRED@+@WILMA@-1';
  37.   CalcAndStore(MyExpr,MyAddr,MyErr);
  38.  
  39.   {look in @DINO@}
  40.   ReadVariable(MyAddr,MyReal,MyBool);
  41.  
  42.   if MyBool then
  43.     {couldn't find variable - this is leftover from testing w/o TD}
  44.     MyReal := -99999;
  45.  
  46.   {@DINO@ has 24 in it here -- check for yourself using TD or writeln}
  47.  
  48.   {deallocate linked list's memory}
  49.   DestroyList;
  50.  
  51. end. {TestI}
  52.